Вводятся числа a и b.
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, i: integer;
sum, count, res: extended;
begin
a := StrToInt(Edit1.Text); // Ввод данных!
b := StrToInt(Edit2.Text); // Ввод данных!
sum := 0;
count := 0;
res := 0;
for i := a to b do // Перебираем все числа от а до b!
if (i mod 10) = 7
// В случае если остаток от деления на 10 - 7 (т.е. последняя цифра - 7)...
then
begin
sum := sum + i; // ...то число добавляем к сумме.
count := count + 1; // И увеличиваем количество посчитанных чисел!
end;
if count;
0 then res := sum / count;
Label1.Caption := FloatToStr(res); // Ответ готов!
end;
Похожие записи/страницы:
- Известно, что из четырех чисел a1, a2, a3 и a4 одно отлично от трех других, равных между собой; присвоить номер…
- Написать программу которая при вводе любого числа в edit автоматически выдает количество единиц, сотен, тысяч,…
- Дана действительная матрица NxM. Необходимо найти сумму положительных элементов матрицы. использовать stringgrid…
- С помощью компонента Memo заполнить строковый массив. Вывести в компоненты Edit самую длинную и самую короткую…
- Найти сумму их периметров, определив функцию для расчета периметра равнобедренной трапеции по ее основаниям и…
- Процедуры сложения, вычитания, деления и умножения для простейшего калькулятора - Delphi(Делфи)
- Дан одномерный массив H(n), заполненными случайными целыми числами от -F до F. Упорядочить массив по убыванию,…
- Описать логическую функцию erlier(t1,t2) для проверки, предшествует ли время t1 времени t2 (в рамках суток) и…